home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
KillMarked.zprx
< prev
next >
Wrap
Text File
|
1995-03-09
|
793b
|
34 lines
/*
$VER: KillMarked.zprx 1.1 (04.12.94) by Ralph Seichter
ARexx script for Zodiac's Point 3.9.
This script adds the flags "old" and "deleted" to the currently
marked messages and jumps down to the next new message. I suggest
you to bind this script to an F-Key, e.g. by adding
F1:SYS:Rexxc/RX ZP:Rexx/KillMarked.zprx %s
to your "fkeys.zp" file. You cann pass an options after the
port name, i.e. "KillMarked.zprx ZPoint FORCE LATER".
*/
PARSE ARG zpPort opt1 opt2 opt3
ADDRESS VALUE zpPort
OPTIONS RESULTS
whichlevel
IF (RESULT ~= 'BOARD') THEN DO
requestnotify 'You must be inside a board!'
exit
END
markasold
delete opt1 opt2 opt3
jumptonew down
IF (~RC) THEN
requestnotify 'No more new messages.'
ELSE
selectmessage none
/* EOF */